<% If session("yetki")<>"" Then %> <% dim kod kod=request.QueryString("id") kod=cint(kod) Set Baglanti=Server.CreateObject("Adodb.Connection") Baglanti.Open Cumle Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu="Select * from soy where kod=" & kod Rs.Open Sorgu, Baglanti, 1, 1 %> <%= Rs("ad")%> <%= Rs("soyad") %>

ALTIOK AİLESİ SOYAĞACI

Aile Görünümü

Babası : <% if rs("babakod")<>0 then Set Rsbaba=Server.CreateObject("Adodb.Recordset") Sorgu="Select * from soy where kod=" & rs("babakod") Rsbaba.Open Sorgu, Baglanti, 1, 1 if rsbaba.recordcount>0 then Response.Write("" & rsbaba("ad") & "") else Response.Write("-") end if %>	Annesi : <% if rs("anakod")<>0 then Set Rsana=Server.CreateObject("Adodb.Recordset") Sorgu="Select * from soy where kod=" & rs("anakod") Rsana.Open Sorgu, Baglanti, 1, 1 if rsana.recordcount>0 then Response.Write("" & rsana("ad") & "") else Response.Write("-") end if %>

<%= Rs("ad")%> <%= Rs("soyad") %> <%= left(Rs("aciklama"),350) %>" target="detail"> devamı...		.jpg">

Eş

Cocuk

<% Set Rses1=Server.CreateObject("Adodb.Recordset") Sorgu="Select * from soy where kod=" & rs("eskod1") Rses1.Open Sorgu, Baglanti, 1, 1 if rses1.recordcount>0 then Response.Write("" & rses1("ad") & "") %>

<% Set Rsc1=Server.CreateObject("Adodb.Recordset") if rses1.recordcount<1 then if rs("cins")="K" then Sorgu="Select * from soy where anakod=" & rs("kod") & " order by dtarih" else Sorgu="Select * from soy where babakod=" & rs("kod") & " order by dtarih" end if else if rs("cins")="E" then Sorgu="Select * from soy where anakod=" & rses1("kod") & " order by dtarih" else Sorgu="Select * from soy where babakod=" & rses1("kod") & " order by dtarih" end if end if Rsc1.Open Sorgu, Baglanti, 1, 1 if rsc1.recordcount>0 then do while not rsc1.eof Response.Write("" & rsc1("ad") & ", ") rsc1.movenext loop end if %>

<% if rs("eskod2")<>0 then %>

Eş 2	Cocuk
<% Set Rses2=Server.CreateObject("Adodb.Recordset") Sorgu="Select * from soy where kod=" & rs("eskod2") Rses2.Open Sorgu, Baglanti, 1, 1 if rses1.recordcount>0 then Response.Write("" & rses2("ad") & "") %>	<% Set Rsc2=Server.CreateObject("Adodb.Recordset") if rs("cins")="E" then Sorgu="Select * from soy where anakod=" & rses2("kod") & " order by dtarih" else Sorgu="Select * from soy where babakod=" & rses2("kod") & " order by dtarih" end if Rsc2.Open Sorgu, Baglanti, 1, 1 if rsc2.recordcount>0 then do while not rsc2.eof Response.Write("" & rsc2("ad") & ", ") rsc2.movenext loop end if %>

<% End If %>

<% Else %> SAYFAYA GİRİŞ İZNİNİZ YOK. ÜZGÜNÜZ! <%="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") & "?" & Request.ServerVariables("QUERY_STRING") %>

<% End If %>